;SEE IF PAGESTREAM3 AND SOFTLOGIK ARE ASSIGNED AND THE HELP DIRECTORY EXISTS
(set PGSdest (getassign "PageStream3" "a"))
(set SLdest (getassign "SoftLogik" "a"))
(if (OR (= PGSdest "") (= SLdest ""))
(abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream3 before applying this update patch.")
)
(set @default-dest PGSdest)
(if (<> (exists "PageStream3:Help") 2)
(abort "The PageStream3:Help directory is missing. You must properly install the help system from your original PageStream3 disks before installing these help files.")
)
(message "\nThis will replace outdated help files with new versions of the same files. Your original PageStream disks will not be modified.")
;COPY THE LHEX PROGRAM TO RAM:
(copyfiles
(source "PageStream3Disk1:lhex")
(dest "ram:")
(nogauge)
)
;UPDATE HELP
(working "Installing Help Files...")
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Help.lha")